home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / win / framer10.zip / ALARM.ZIP / ALARM1.BAS < prev    next >
BASIC Source File  |  1994-02-01  |  8KB  |  73 lines
  1. DefInt A-Z
  2.  
  3. 'define the standard PC-Video DLL routines
  4. Declare Function pcv_setvideosource Lib "\windows\framegrb.dll" (ByVal i1%) As Integer
  5. Declare Function pcv_enablefieldreplication Lib "\windows\framegrb.dll" () As Integer
  6. Declare Function pcv_enableinterlace Lib "\windows\framegrb.dll" () As Integer
  7. Declare Function pcv_disableinterlace Lib "\windows\framegrb.dll" () As Integer
  8. Declare Function pcv_createwindow Lib "\windows\framegrb.dll" (ByVal i1%, ByVal i2%, ByVal i3%, ByVal i4%, ByVal i5%) As Integer
  9. Declare Function pcv_initialize Lib "\windows\framegrb.dll" () As Integer
  10. Declare Function pcv_loadconfiguration Lib "\windows\framegrb.dll" () As Integer
  11. Declare Function pcv_setcolorkey Lib "\windows\framegrb.dll" (ByVal i1%) As Integer
  12. Declare Function pcv_clearvideorect Lib "\windows\framegrb.dll" (ByVal i1%, ByVal i2%, ByVal i3%, ByVal i4%) As Integer
  13. Declare Function pcv_setwindowsize Lib "\windows\framegrb.dll" (ByVal i1%, ByVal i2%, ByVal i3%) As Integer
  14. Declare Function pcv_setwindowposition Lib "\windows\framegrb.dll" (ByVal i1%, ByVal i2%) As Integer
  15. Declare Function pcv_enablevideo Lib "\windows\framegrb.dll.dll" () As Integer
  16. Declare Function pcv_exit Lib "\windows\framegrb.dll" () As Integer
  17. Declare Function pcv_freezevideo Lib "\windows\framegrb.dll" () As Integer
  18. Declare Function pcv_unfreezevideo Lib "\windows\framegrb.dll" () As Integer
  19. Declare Function pcv_verticalzoom Lib "\windows\framegrb.dll" (ByVal i1%) As Integer
  20. Declare Function pcv_horizontalzoom Lib "\windows\framegrb.dll" () As Integer
  21. Declare Function pcv_saveimagerect Lib "\windows\framegrb.dll" (ByVal f$, ByVal i1%, ByVal i2%, ByVal i3%, ByVal i4%, ByVal i5%, ByVal i6%) As Integer
  22. Declare Function pcv_loadimagerect Lib "\windows\framegrb.dll" (ByVal f$, ByVal i1%, ByVal i2%) As Integer
  23. Declare Function pcv_disablevideo Lib "\windows\framegrb.dll" () As Integer
  24.  
  25. 'defines our special framegrabber DLL routines
  26. Declare Function loadmmp Lib "\windows\framer.dll" (ByVal f1 As String, ByVal i1 As Integer, ByVal i2 As Integer) As Integer
  27. Declare Function savemmp Lib "\windows\framer.dll" (ByVal f1 As String, ByVal i1 As Integer, ByVal i2 As Integer, ByVal i3 As Integer, ByVal i4 As Integer) As Integer
  28. Declare Function maskimage Lib "\windows\framer.dll" (ByVal f1 As String, ByVal i1 As Integer, ByVal i2 As Integer, ByVal i3 As Integer, ByVal i4 As Integer, ByVal i5 As Integer) As Integer
  29. Declare Function colmiximage Lib "\windows\framer.dll" (ByVal f1 As String, ByVal i1 As Integer, ByVal i2 As Integer, ByVal i3 As Integer, ByVal i4 As Integer, ByVal i5 As Integer, ByVal i6 As Integer, ByVal i7 As Integer, ByVal i8 As Integer, ByVal i9 As Integer, ByVal i10 As Integer) As Integer
  30. Declare Function greymiximage Lib "\windows\framer.dll" (ByVal f1 As String, ByVal i1 As Integer, ByVal i2 As Integer, ByVal i3 As Integer, ByVal i4 As Integer, ByVal i5 As Integer, ByVal i6 As Integer, ByVal i7 As Integer, ByVal i8 As Integer, ByVal i9 As Integer, ByVal i10 As Integer) As Integer
  31. Declare Sub colourchange Lib "\windows\framer.dll" (ByVal i1 As Integer, ByVal i2 As Integer, ByVal i3 As Integer, ByVal i4 As Integer, ByVal i5 As Integer, ByVal i6 As Integer)
  32. Declare Sub blockrgb Lib "\windows\framer.dll" (ByVal i1 As Integer, ByVal i2 As Integer, ByVal i3 As Integer, ByVal i4 As Integer, ByVal i5 As Integer, ByVal i6 As Integer, ByVal i7 As Integer)
  33. Declare Sub rgbputpixel Lib "\windows\framer.dll" (ByVal i1 As Integer, ByVal i2 As Integer, ByVal i3 As Integer, ByVal i4 As Integer, ByVal i5 As Integer)
  34. Declare Sub rgbgetpixel Lib "\windows\framer.dll" (ByVal i1 As Integer, ByVal i2 As Integer, i3 As Integer, i4 As Integer, i5 As Integer)
  35. Declare Sub yuvputpixel Lib "\windows\framer.dll" (ByVal i1 As Integer, ByVal i2 As Integer, ByVal i3 As Integer, ByVal i4 As Integer, ByVal i5 As Integer)
  36. Declare Sub yuvgetpixel Lib "\windows\framer.dll" (ByVal i1 As Integer, ByVal i2 As Integer, i3 As Integer, i4 As Integer, i5 As Integer)
  37. Declare Sub setactivepage Lib "\windows\framer.dll" (ByVal i1 As Integer)
  38. Declare Function xzoomblock Lib "\windows\framer.dll" (ByVal i1 As Integer, ByVal i2 As Integer, ByVal i3 As Integer, ByVal i4 As Integer, ByVal i5 As Integer, ByVal i6 As Integer) As Integer
  39. Declare Function yzoomblock Lib "\windows\framer.dll" (ByVal i1 As Integer, ByVal i2 As Integer, ByVal i3 As Integer, ByVal i4 As Integer, ByVal i5 As Integer, ByVal i6 As Integer) As Integer
  40. Declare Function xzoomimage Lib "\windows\framer.dll" (ByVal i1 As Integer) As Integer
  41. Declare Function yzoomimage Lib "\windows\framer.dll" (ByVal i1 As Integer) As Integer
  42. Declare Sub copyblock Lib "\windows\framer.dll" (ByVal i1 As Integer, ByVal i2 As Integer, ByVal i3 As Integer, ByVal i4 As Integer, ByVal i5 As Integer, ByVal i6 As Integer)
  43. Declare Sub moveblock Lib "\windows\framer.dll" (ByVal i1 As Integer, ByVal i2 As Integer, ByVal i3 As Integer, ByVal i4 As Integer, ByVal i5 As Integer, ByVal i6 As Integer, ByVal i7 As Integer, ByVal i8 As Integer)
  44. Declare Sub clearpage Lib "\windows\framer.dll" (ByVal i1 As Integer)
  45. Declare Sub setxycursor Lib "\windows\framer.dll" (ByVal i1 As Integer, ByVal i2 As Integer)
  46. Declare Sub enablemouse Lib "\windows\framer.dll" ()
  47. Declare Sub disablemouse Lib "\windows\framer.dll" ()
  48. Declare Sub colourblock Lib "\windows\framer.dll" (ByVal i1 As Integer, ByVal i2 As Integer, ByVal i3 As Integer, ByVal i4 As Integer, ByVal i5 As Integer, ByVal i6 As Integer, ByVal i7 As Integer, ByVal i8 As Integer, ByVal i9 As Integer)
  49. Declare Sub setpal Lib "\windows\framer.dll" (ByVal i1 As Integer)
  50. Declare Sub initdll Lib "\windows\framer.dll" (ByVal i1 As Integer, ByVal i2 As Integer)
  51. Declare Sub initvariance Lib "\windows\framer.dll" (ByVal i1 As Integer)
  52. Declare Sub initcolours Lib "\windows\framer.dll" (ByVal i1 As Integer, ByVal i2 As Integer, ByVal i3 As Integer)
  53. Declare Sub defcolours Lib "\windows\framer.dll" (ByVal i1 As Integer, ByVal i2 As Integer, ByVal i3 As Integer)
  54. Declare Sub drawcircle Lib "\windows\framer.dll" (ByVal i1 As Integer, ByVal i2 As Integer)
  55. Declare Sub clearcircle Lib "\windows\framer.dll" (ByVal i1 As Integer, ByVal i2 As Integer)
  56. Declare Sub copycircle Lib "\windows\framer.dll" (ByVal i1 As Integer, ByVal i2 As Integer, ByVal i3 As Integer, ByVal i4 As Integer)
  57. Declare Sub setbrushsize Lib "\windows\framer.dll" (ByVal i1 As Integer)
  58. Declare Sub mirror Lib "\windows\framer.dll" (ByVal i1 As Integer)
  59. Declare Function shrinkimage Lib "\windows\framer.dll" (ByVal f1 As String, ByVal i1 As Integer, ByVal i2 As Integer, ByVal i3 As Integer) As Integer
  60. Declare Sub setcolourtable Lib "\windows\framer.dll" (ByVal i1 As Integer)
  61. Declare Sub storerle Lib "\windows\framer.dll" ()
  62. Declare Sub restorerle Lib "\windows\framer.dll" ()
  63. Declare Sub storeblock Lib "\windows\framer.dll" (ByVal i1 As Integer, ByVal i2 As Integer, ByVal i3 As Integer, ByVal i4 As Integer)
  64. Declare Sub restoreblock Lib "\windows\framer.dll" ()
  65. Declare Function getstate Lib "\windows\framer.dll" () As Integer
  66. Declare Sub undocircle Lib "\windows\framer.dll" ()
  67. Declare Sub resetundo Lib "\windows\framer.dll" ()
  68. Declare Sub rlechange Lib "\windows\framer.dll" (ByVal i1 As Integer)
  69. Declare Sub rgbcircle Lib "\windows\framer.dll" (ByVal i1 As Integer, ByVal i2 As Integer, ByVal i3 As Integer, ByVal i4 As Integer, ByVal i5 As Integer, ByVal i6 As Integer)
  70. Declare Sub freememory Lib "\windows\framer.dll" ()
  71. Declare Sub greyscale Lib "\windows\framer.dll" ()
  72.  
  73.